home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Game Levels 2 / 1,000 Game Levels 2.iso / DOSARC / BOWHUNT.ZIP / TITLE.BAK < prev    next >
Text File  |  1994-05-21  |  1KB  |  49 lines
  1. Program Coder;
  2. uses Crt, Graph;
  3.  
  4.  
  5. var
  6.    Gd, Gm : integer;
  7.    y, Size : integer;
  8.    c1 : integer;
  9.    c2 : integer;
  10.    c3 : integer;
  11.    c4 : integer;
  12.    key : char;
  13.  
  14. Procedure Start;
  15.           begin
  16.                randomize;
  17.                clrscr;
  18.                textcolor(red+blink);
  19.                Gd := Detect; InitGraph(Gd, Gm, '');
  20.                if GraphResult <> grOk then Halt(1);
  21.                Y := 0;
  22.                repeat
  23.                     c1 := random(GetMaxColor);
  24.                     c2 := random(GetMaxColor);
  25.                     c3 := random(GetMaxColor);
  26.                     c4 := random(GetMaxColor);
  27.                     SetColor(c1);
  28.                     SetBkColor(black);
  29.                     delay(150);
  30.                     SetTextStyle(TriplexFont, HorizDir, 10);
  31.                     OutTextXY(190, 40, 'Bow');
  32.                     SetColor(c2);
  33.                     OutTextXY(100, 160, 'Hunter');
  34.                     SetColor(c3);
  35.                     SetTextStyle(TriplexFont, HorizDir, 4);
  36.                     OutTextXY(80, 350, 'To play game, press any key');
  37.                     SetColor(c4);
  38.                     OutTextXY(30,400,'For how to play the game, press H');
  39.  
  40.                until keypressed;
  41.                key:=readkey;
  42.                OutTextXY(50,50,key);
  43.                delay (500);
  44.           end;
  45.  
  46. begin
  47.      start;
  48. end.
  49.